10 POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147][149][215][197][204][195][207][205][197][160][212][207]:" 20 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]" 30 PRINT"[221][146] [211][213][208][197][210].[196][207][211] [149][221]" 40 PRINT"[221][146][201][206][211][212][210][213][195][212][201][207][206][211][149][221]" 50 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]" 60 PRINT"[194]Y [211]TEVE [199]AST" 70 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]" 80 GETW$:IFW$=""THEN80 90 PRINT"[147] [210][197][211][212][207][210][197]/[193] " 100 PRINT"[208]RESSING THE [210][197][211][212][207][210][197] KEY FOLLOWED BY" 110 PRINT"THE [193] KEY WILL CAUSE [194][193][211][201][195] AUTO" 120 PRINT"NUMBERING TO BEGIN. [211]UCCESSIVE LINES" 130 PRINT"WILL BE INCREMENTED BY 10. [212]O TURN AUTO" 140 PRINT"NUMBERING OFF SIMPLY PRESS THE RETURN" 150 PRINT"KEY AFTER A LINE NUMBER FIRST APPEARS." 160 PRINT"[212]HE LINE NUMBER YOU STOP AT WILL BE" 170 PRINT"REMEMBERED. [201]F YOU LATER ENTER AUTO" 180 PRINT"NUMBERING AGAIN, LINE NUMBERS WILL" 190 PRINT"CONTINUE FROM WHERE YOU LEFT OFF." 200 PRINT" [210][197][211][212][207][210][197]/[194], [210][197][211][212][207][210][197]/[195] & [210][197][211][212][207][210][197]/[197] " 210 PRINT"[194]Y PRESSING THE [210][197][211][212][207][210][197] KEY FOLLOWED BY" 220 PRINT"THE [194], [195] OR [197] KEYS, SCREEN COLORS WILL" 230 PRINT"BE AFFECTED. [212]HE [194] KEY WILL CHANGE THE" 240 PRINT"BACKGROUND COLOR, THE [195] KEY WILL CHANGE" 250 PRINT"THE CHARACTER COLOR AND THE [197] KEY WILL" 260 PRINT"CHANGE THE EDGE COLOR. [208]RESSING THE" 270 PRINT"[210][197][212][213][210][206] KEY WILL RETURN TO NORMAL." 280 PRINT" [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]" 290 GETW$:IFW$=""THEN290 300 PRINT"[147] [210][197][211][212][207][210][197]/[208] & [210][197][211][212][207][210][197]/[207] " 310 PRINT"[208]RESSING [210][197][211][212][207][210][197]/[208] WILL TURN YOUR" 320 PRINT"PRINTER 'ON'. [212]HIS WILL CAUSE WHAT IS" 330 PRINT"PRINTED TO THE SCREEN TO ALSO BE SENT" 340 PRINT"TO YOUR PRINTER. [208]RESSING [210][197][211][212][207][210][197]/[207]" 350 PRINT"WILL TURN YOUR PRINTER OFF." 360 PRINT" [210][197][211][212][207][210][197]/[196] " 370 PRINT"[208]RESSING [210][197][211][212][207][210][197]/[196] WILL CAUSE WHATEVER" 380 PRINT"IS PRESENTLY ON THE SCREEN TO BE DUMPED" 390 PRINT"TO THE PRINTER. [212]HIS CAN EVEN BE DONE" 400 PRINT"FROM WITHIN PROGRAM CONTROL!" 410 PRINT" [210][197][211][212][207][210][197]/[200] & [210][197][211][212][207][210][197]/[213] " 420 PRINT"[212]HESE COMMANDS WILL DISPLAY THE TWO" 430 PRINT"HELP SCREENS THAT WERE INITIALLY" 440 PRINT"PRESENTED WHEN THE PROGRAM WAS LOADED" 450 PRINT"AND RUN. [215]HEN YOU ARE FINISHED VIEWING" 460 PRINT"THEM PRESS [210][197][212][213][210][206] TO RETURN TO THE" 470 PRINT"SCREEN THAT WAS DISPLAYED IMMEDIATELY" 480 PRINT"BEFORE YOU REQUESTED THE HELP SCREEN." 490 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]" 500 GETW$:IFW$=""THEN500 510 PRINT"[147] [210][197][211][212][207][210][197]/[206] " 520 PRINT"[212]HIS COMMAND ALLOWS HEX/DECIMAL" 530 PRINT"DECIMAL/HEX NUMBER CONVERSIONS. [212]O" 540 PRINT"CONVERT A DECIMAL NUMBER TO HEX JUST" 550 PRINT"ENTER THE DECIMAL NUMBER AND PRESS" 560 PRINT"[210][197][212][213][210][206]. [212]O CONVERT A HEX NUMBER TO" 570 PRINT"DECIMAL ENTER A '$' FOLLOWED BY THE HEX" 580 PRINT"NUMBER AND PRESS [210][197][212][213][210][206]. [212]O EXIT THE" 590 PRINT"MODE JUST PRESS [210][197][212][213][210][206]. [206]UMBERS GREATER" 600 PRINT"THAN 65535 OR $[198][198][198][198] WILL NOT BE" 610 PRINT"ACCEPTED. [212]HE SCREEN THAT WAS PRESENT" 620 PRINT"UPON ENTERING THE NUMBER CONVERSION" 630 PRINT"ROUTINE WILL BE RETURNED UPON EXITING." 640 PRINT" [210][197][211][212][207][210][197]/[205] " 650 PRINT"[212]HIS KEY SEQUENCE WILL PUT YOU IN" 660 PRINT"[216][212][210][193]-[205][207][206] (A MACHINE LANGUAGE MONITOR)" 670 PRINT"IF YOU CHOSE TO HAVE IT IN RESIDENCE." 680 PRINT" [210][197][211][212][207][210][197]/[210] " 690 PRINT"[212]HIS COMMAND WILL CAUSE ALL KEYS TO" 700 PRINT"REPEAT AFTER A SHORT DELAY (LIKE THE" 710 PRINT"SPACE BAR NORMALLY DOES). [208]RESSING" 720 PRINT"[210][197][211][212][207][210][197]/[210] AGAIN RETURNS TO NORMAL." 730 PRINT" [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]" 740 GETW$:IFW$=""THEN740 750 PRINT"[147] [210][197][211][212][207][210][197]/[203] " 760 PRINT"[212]HIS COMMAND WILL CAUSE A COMPLETE" 770 PRINT"SYSTEM RESET. ([211][217][211] 64738)." 780 PRINT" [210][197][211][212][207][210][197]/[211] " 790 PRINT"[212]HIS COMMAND REACTIVATES [211][213][208][197][210] [193][201][196] ONLY" 800 PRINT"AFTER A [203][201][204][204] OR @[209] COMMAND." 810 PRINT"[206]OTE: [210][197][211][212][207][210][197] COMMANDS CAN BE CALLED" 820 PRINT"FROM WITHIN PROGRAM CONTROL WITH PROPER" 830 PRINT"[211][217][211] COMMANDS:" 840 PRINT"[210][197][211][212][207][210][197]/[193]=[211][217][211] 51940 [210][197][211][212][207][210][197]/[194]=[211][217][211] 51892"; 850 PRINT"[210][197][211][212][207][210][197]/[195]=[211][217][211] 51917 [210][197][211][212][207][210][197]/[197]=[211][217][211] 51888"; 860 PRINT"[210][197][211][212][207][210][197]/[208]=[211][217][211] 51644 [210][197][211][212][207][210][197]/[207]=[211][217][211] 51652"; 870 PRINT"[210][197][211][212][207][210][197]/[206]=[211][217][211] 52064 [210][197][211][212][207][210][197]/[196]=[211][217][211] 51674"; 880 PRINT"[210][197][211][212][207][210][197]/[200]=[211][217][211] 50976 [210][197][211][212][207][210][197]/[213]=[211][217][211] 51009"; 890 PRINT"[210][197][211][212][207][210][197]/[205]=[211][217][211] 29900 [210][197][211][212][207][210][197]/[210]=[211][217][211] 51258"; 900 PRINT"[210][197][211][212][207][210][197]/[203]=[211][217][211] 51267 [210][197][211][212][207][210][197]/[211]=[211][217][211] 51270" 910 PRINT" [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]" 920 GETW$:IFW$=""THEN920 930 PRINT"[147][206]OTE 2: [201]F FOR SOME BIZZARE REASON" 940 PRINT"YOU SHOULD WANT TO DISABLE [211][213][208][197][210] [196][207][211]" 950 PRINT"IT CAN ONLY BE DONE IF THE [216][212][210][193]-[205][207][206]" 960 PRINT"OPTION WAS [206][207][212] SELECTED. [201]N THE CASE" 970 PRINT"WHERE THERE IS NOT A MACHINE LANGUAGE" 980 PRINT"MONITOR IN MEMORY [211][217][211]ING TO A [194][210][203]" 990 PRINT"(E.G. [211][217][211]8) WILL SHUT OFF [211][213][208][197][210] [196][207][211]" 1000 PRINT"ONLY. [215]HEN THE MACHINE LANGUAGE MONITOR" 1010 PRINT"IS IN MEMORY THE ROUTINE NORMALLY CAN" 1020 PRINT"NOT BE EXITED. [207]CASIONALLY, BECAUSE OF" 1030 PRINT"THE BIZZARE WAY THE 64 READS THE RESTORE"; 1040 PRINT"KEY, THE MACHINE WILL RESET TO DEFAULT" 1050 PRINT"JUST TO PROVE THE IMPOSSIBLE IS, IN FACT"; 1060 PRINT"POSSIBLE. [202]UST IN PASSING THE 64 [213][211][213][193][204][204][217]"; 1070 PRINT"READS THE [210][197][211][212][207][210][197] KEY TWICE. [211][213][208][197][210] [193][201][196]" 1080 PRINT"ALLOWS FOR THIS." 1090 PRINT" [200]APPY [195]OMPUTING!!" 1100 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]" 1110 GETW$:IFW$=""THEN1110 1120 PRINTCHR$(14)"[147] [196][207] [217][207][213] [215][201][211][200] [212][207]: " 1130 PRINT"1. [210][213][206] [211][213][208][197][210] [193][201][196]" 1140 PRINT"2. [211][197][197] [196][197][212][193][201][204][197][196] [212][201][206][217] [193][201][196] [208][204][213][211]" 1150 PRINT" [201][206][211][212][210][213][195][212][201][207][206][211]" 1160 PRINT"3. [211][197][197] [211][213][208][197][210] [193][201][196] [199][197][206][197][210][193][204] [195][207][205][205][197][206][212][211] 1170 [153]"4. (null)VALVAL STR$VAL(null)ATNRIGHT$(null)VALSTR$ (null)VALSTR$CHR$VAL RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)" 1180 [153]"5. (null)VALVAL (null)(null)(null)ATN-(null)(null)(null) RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)" 1190 [153]"6. VAL(null)RIGHT$(null) (null)LEFT$VAL (null)(null)(null)CHR$(null)ATN(null)" 1200 [153]"VALNTER YOUR NUMBER OF CHOICE" 1210 [161]W$:[139]W$[178]""[167]1210 1220 [139]W$[179][177]"1"[175]W$[179][177]"2"[175]W$[179][177]"3"[175]W$[179][177]"4"[175]W$[179][177]"5"[175]W$[179][177]"6"[167]1210 1230 W[178][197](W$):[139]W[178]6[167][153]"LOADVERIFY"[199](142):[162]:[128] 1240 [139]W[178]1[167]NP$[178]"SUPER.AID.C" 1250 [139]W[178]2[167]NP$[178]"TAP.INST.D" 1260 [139]W[178]3[167]NP$[178]"S.A.COMMENTS.D" 1270 [139]W[178]4[167]NP$[178]"WEDGE.INST.D" 1280 [139]W[178]5[167]NP$[178]"XMON.INST.D" 1290 [153]"LOADSTOPLOAD"[199](34)NP$[199](34)",8" 1300 [151]198,4:[151]631,13:[151]632,82:[151]633,213:[151]634,13 1310 [153][199](142)"VERIFY(null)LENLENLENLENLENLENLENLENLENLENLENRIGHT$" 1320 [153][199](142)"VERIFY(null)WAITPLEASE WAITVERIFY(null)" 1330 [153][199](142)"VERIFYMID$LENLENLENLENLENLENLENLENLENLENLEN(null)WAITSTOP":[128]